Celestin Apprentice 7/Apprentice-Release7.iso/Utilities/Programming/Dialog Director 0.6/Res Utils Examples/Put Handlers.as

Text File | 1996-12-06 | 336 b | 20 lines | [TEXT/ToyS]

on aaa(x)
    x
end aaa

on bbb()
end bbb

on run
    set f to new file default name "Handlers.rsrc"
    res create f creator type "RSED" file type "rsrc"
    set rf to res open f with write permission
    try
        res put rf id 1000 data aaa
        res put rf id 2000 data bbb
    on error number n
        res close rf
        error number n
    end try
    res close rf
end run